COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 GLSFM - This instrument is a simple FM type with glissando (no vibrato),
C00007 ENDMK
C⊗;
 GLSFM - This instrument is a simple FM type with glissando (no vibrato),
 independent attack and decay controls on the envelopes, 
 and a point source location capability in angle and distance;

    Parameters:

 P1	Begin time
 P2	Duration
 P3 	Frequency when gliss function is at 0
 P4 	Amplitude (0 ↔ 1)
 P5 	Amplitude function
 
 P6 	End point of attack portion of amp and index functions
 P7 	Attack duration
 P8 	Begin point of decay portion of amp and index functions
 P9 	Decay duration
 
 P10	Degrees of azimuth 
 P11	Distance relative to loudspeaker ( ≥1 )
 P12	Percentage (0 ↔ 1) of signal to be reverberated
 
 P13 	Carrier scale factor (Carrier frequency = P3 * P13)
 P14 	Modulator scale factor (Modulation frequency = (P3 * P14) + P15 )
 P15	Offset in Herz of modulation frequency
 P16     Modulation index when index function = 0;
 P17     Modulation index when index function = 1;
 P18     Index function
 
 P19	Frequency when gliss function = 1
 P20	Gliss function    
 P21	End point of attack portion of gliss function
 P22	Attack duration
 P23	Begin point of decay portion of gliss function
 P24	Decay duration



    ********     Example SCORE input file: GLSFM[INS,MUS]     ********

PRECEDE;			< Lines down to the * will precede the score
FUNC EXMP1.FUN[INS,MUS];	< Causes function file to be read into MBOX
COMMON GLSFM INSA;		< "INSA" refers to generic instrument GLSFM
*				< End of PRECEDE section

 REVRB 0 0 1;			< Instrument REVRB plays one "note"
 P2 22;				< Must last until after all instruments are done
 END;				< End of data for REVRB

 INSA 0 20;			< INSA plays for 20 seconds "basic time" 
INSA 0 0 1; P2 .2;
 P2 1 .5,1;			< Random durations between .5" and 1"
P3 MOVE/10 200 250/10 250 200;	< Start frequency goes up slightly, then back down
P4 1;				< Maximum amplitude
P5 F2;				< Amp function
P6 3;				< End point of attack segment of amplitude function
P7 .03;				< Duration of attack (independent of P2)
P8 4;				< Begin point of decay segment 
P9 .05;				< Duration of decay (independent of P2)
P10 45;				< 45 degrees = channel 1 
P11 2;				< distance factor
P12 .06;			< 6% reverberation
P13 1;				< c/m ratio = 1/1
P14 1;
P15 4;				< Modulation frequency offset = 4 Hz.
P16 0;
P17 6;				< Max index = 6
P18 F9;				< Index function differs from amp function
P19 MOVE/20 200,200 50,400;	< Random selection range of gliss end frequencies
       				<    gradually enlarges
P20 F4;				< Glissando function
P21 0;				< No attack and decay set, therefore function lasts
P22 0;				<   exactly P2"
P23 0;
P24 0;
END;
 
RUN;